inherited dmObjetos: TdmObjetos
  Height = 522
  Width = 585
  inherited qryCadBase: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'ID_OBJ'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'SELECT * FROM OBJETOS_EXISTENTES WHERE ID_OBJ=:ID_OBJ')
    object qryCadBaseID_OBJ: TIntegerField
      FieldName = 'ID_OBJ'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qryCadBaseNOME_OBJ: TStringField
      FieldName = 'NOME_OBJ'
      Size = 255
    end
    object qryCadBaseCLASSE_OBJS: TStringField
      FieldName = 'CLASSE_OBJS'
      Size = 255
    end
    object qryCadBaseFKTABLE_OBJS: TStringField
      FieldName = 'FKTABLE_OBJS'
      Size = 255
    end
    object qryCadBaseTITULO_OBJS: TStringField
      FieldName = 'TITULO_OBJS'
      Size = 255
    end
    object qryCadBaseID_TIPO_OBJS: TIntegerField
      FieldName = 'ID_TIPO_OBJS'
    end
    object qryCadBaseID_PROJETO: TIntegerField
      FieldName = 'ID_PROJETO'
    end
  end
  inherited qryLstBase: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'ID_TIPO_OBJS'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'ID_PROJETO'
        ParamType = ptInput
      end>
    SQL.Strings = (
      
        'SELECT * FROM OBJETOS_EXISTENTES WHERE ID_TIPO_OBJS=:ID_TIPO_OBJ' +
        'S'
      'AND ID_PROJETO=:ID_PROJETO'
      '')
    object qryLstBaseID_OBJ: TIntegerField
      FieldName = 'ID_OBJ'
      Required = True
    end
    object qryLstBaseNOME_OBJ: TStringField
      FieldName = 'NOME_OBJ'
      Size = 255
    end
    object qryLstBaseCLASSE_OBJS: TStringField
      FieldName = 'CLASSE_OBJS'
      Size = 255
    end
    object qryLstBaseFKTABLE_OBJS: TStringField
      FieldName = 'FKTABLE_OBJS'
      Size = 255
    end
    object qryLstBaseTITULO_OBJS: TStringField
      FieldName = 'TITULO_OBJS'
      Size = 255
    end
    object qryLstBaseID_TIPO_OBJS: TIntegerField
      FieldName = 'ID_TIPO_OBJS'
    end
    object qryLstBaseID_PROJETO: TIntegerField
      FieldName = 'ID_PROJETO'
    end
  end
  inherited cdsCadBase: TClientDataSet
    Params = <
      item
        DataType = ftInteger
        Name = 'ID_OBJ'
        ParamType = ptInput
      end>
    object cdsCadBaseID_OBJ: TIntegerField
      FieldName = 'ID_OBJ'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object cdsCadBaseNOME_OBJ: TStringField
      FieldName = 'NOME_OBJ'
      Size = 255
    end
    object cdsCadBaseCLASSE_OBJS: TStringField
      FieldName = 'CLASSE_OBJS'
      Size = 255
    end
    object cdsCadBaseFKTABLE_OBJS: TStringField
      FieldName = 'FKTABLE_OBJS'
      Size = 255
    end
    object cdsCadBaseTITULO_OBJS: TStringField
      FieldName = 'TITULO_OBJS'
      Size = 255
    end
    object cdsCadBaseID_TIPO_OBJS: TIntegerField
      FieldName = 'ID_TIPO_OBJS'
    end
    object cdsCadBaseID_PROJETO: TIntegerField
      FieldName = 'ID_PROJETO'
    end
  end
  inherited cdsLstBase: TClientDataSet
    Params = <
      item
        DataType = ftInteger
        Name = 'ID_TIPO_OBJS'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'ID_PROJETO'
        ParamType = ptInput
      end>
    object cdsLstBaseID_OBJ: TIntegerField
      FieldName = 'ID_OBJ'
      Required = True
    end
    object cdsLstBaseNOME_OBJ: TStringField
      FieldName = 'NOME_OBJ'
      Size = 255
    end
    object cdsLstBaseCLASSE_OBJS: TStringField
      FieldName = 'CLASSE_OBJS'
      Size = 255
    end
    object cdsLstBaseFKTABLE_OBJS: TStringField
      FieldName = 'FKTABLE_OBJS'
      Size = 255
    end
    object cdsLstBaseTITULO_OBJS: TStringField
      FieldName = 'TITULO_OBJS'
      Size = 255
    end
    object cdsLstBaseID_TIPO_OBJS: TIntegerField
      FieldName = 'ID_TIPO_OBJS'
    end
    object cdsLstBaseID_PROJETO: TIntegerField
      FieldName = 'ID_PROJETO'
    end
  end
  inherited qryLstAux: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'ID_PROJETO'
        ParamType = ptInput
      end>
  end
  object cdsLstTIPO_OBJ: TClientDataSet
    Aggregates = <>
    CommandText = 'SELECT * FROM TIPO_OBJETOS'#13#10'ORDER BY NOME_TIPO_OBJ'
    Params = <>
    ProviderName = 'dspLstAux'
    Left = 64
    Top = 224
    object cdsLstTIPO_OBJID_TIPO_OBJ: TIntegerField
      FieldName = 'ID_TIPO_OBJ'
      Required = True
    end
    object cdsLstTIPO_OBJNOME_TIPO_OBJ: TStringField
      FieldName = 'NOME_TIPO_OBJ'
      Size = 255
    end
  end
  object dsLstTIPO_OBJ: TDataSource
    DataSet = cdsLstTIPO_OBJ
    Left = 120
    Top = 224
  end
  object cdsLstObj_Modelos: TClientDataSet
    Aggregates = <>
    CommandText = 'SELECT * FROM OBJETOS_MODELOS WHERE ID_TIPO_OBJ=:ID_TIPO_OBJ'
    Params = <
      item
        DataType = ftInteger
        Name = 'ID_TIPO_OBJ'
        ParamType = ptUnknown
      end>
    ProviderName = 'dspLstAux'
    Left = 312
    Top = 336
    object cdsLstObj_ModelosID_OBJMOD: TIntegerField
      FieldName = 'ID_OBJMOD'
      Required = True
    end
    object cdsLstObj_ModelosNOME_OBJMOD: TStringField
      FieldName = 'NOME_OBJMOD'
      Size = 255
    end
    object cdsLstObj_ModelosCLASSE_OBJMOD: TStringField
      FieldName = 'CLASSE_OBJMOD'
      Size = 255
    end
    object cdsLstObj_ModelosID_TIPO_OBJ: TIntegerField
      FieldName = 'ID_TIPO_OBJ'
    end
  end
  object dsLstObj_Modelos: TDataSource
    DataSet = cdsLstObj_Modelos
    Left = 376
    Top = 336
  end
  object cdsLstProjetos: TClientDataSet
    Aggregates = <>
    CommandText = 'SELECT * FROM PROJETO'
    Params = <>
    ProviderName = 'dspLstAux'
    Left = 56
    Top = 392
    object cdsLstProjetosID_PROJETO: TIntegerField
      FieldName = 'ID_PROJETO'
      Required = True
    end
    object cdsLstProjetosNOME_PROJETO: TStringField
      FieldName = 'NOME_PROJETO'
      Size = 255
    end
    object cdsLstProjetosDATA_CRIACAO_PROJETO: TDateField
      FieldName = 'DATA_CRIACAO_PROJETO'
    end
    object cdsLstProjetosID_TIPO_PROJETO: TIntegerField
      FieldName = 'ID_TIPO_PROJETO'
    end
    object cdsLstProjetosID_TIPO_BANCO: TIntegerField
      FieldName = 'ID_TIPO_BANCO'
    end
  end
  object dsLstProjetos: TDataSource
    DataSet = cdsLstProjetos
    Left = 120
    Top = 392
  end
  object cdsLstTipo_ObjMod: TClientDataSet
    Aggregates = <>
    CommandText = 'SELECT * FROM TIPO_OBJETOS'#13#10'ORDER BY NOME_TIPO_OBJ'
    Params = <>
    ProviderName = 'dspLstAux'
    Left = 64
    Top = 296
    object cdsLstTipo_ObjModID_TIPO_OBJ: TIntegerField
      FieldName = 'ID_TIPO_OBJ'
      Required = True
    end
    object cdsLstTipo_ObjModNOME_TIPO_OBJ: TStringField
      FieldName = 'NOME_TIPO_OBJ'
      Size = 255
    end
  end
  object dsLstTipo_ObjMod: TDataSource
    DataSet = cdsLstTipo_ObjMod
    Left = 120
    Top = 296
  end
  object cdsObjetosProjeto: TClientDataSet
    Aggregates = <>
    CommandText = 'SELECT * FROM OBJETOS_EXISTENTES WHERE ID_PROJETO=:ID_PROJETO'
    Params = <
      item
        DataType = ftInteger
        Name = 'ID_PROJETO'
        ParamType = ptUnknown
      end>
    ProviderName = 'dspLstAux'
    Left = 344
    Top = 264
    object cdsObjetosProjetoID_OBJ: TIntegerField
      FieldName = 'ID_OBJ'
      Required = True
    end
    object cdsObjetosProjetoNOME_OBJ: TStringField
      FieldName = 'NOME_OBJ'
      Size = 255
    end
    object cdsObjetosProjetoCLASSE_OBJS: TStringField
      FieldName = 'CLASSE_OBJS'
      Size = 255
    end
    object cdsObjetosProjetoFKTABLE_OBJS: TStringField
      FieldName = 'FKTABLE_OBJS'
      Size = 255
    end
    object cdsObjetosProjetoTITULO_OBJS: TStringField
      FieldName = 'TITULO_OBJS'
      Size = 255
    end
    object cdsObjetosProjetoID_TIPO_OBJS: TIntegerField
      FieldName = 'ID_TIPO_OBJS'
    end
    object cdsObjetosProjetoID_PROJETO: TIntegerField
      FieldName = 'ID_PROJETO'
    end
  end
  object dsObjetosProjeto: TDataSource
    DataSet = cdsObjetosProjeto
    Left = 432
    Top = 264
  end
end
